150 POKE53280,14:POKE53281,6
160 POKE53272,23
180 PRINT"[147][208]RO [194]UDGET 64 ([214]1.1)
190 [153]"CHR$ERMAN VERSION"
200 [153]"LENOPYRIGHT (null).ASC.LEFT$. 1990"
210 [153]"(ATN)=ATNNLEITUNG"
220 [153]"(ASC)=ASCORTFAHREN"
230 [161]Q$:[139]Q$[178]""[167]230
240 [139]Q$[178]"A"[167][137]600
250 [139]Q$[178]"F"[167][137]1000
260 [137]230
600 [153][199](147)
610 [153]"ATN(null)(null)VALRIGHT$(null)(null)(null)CHR$:"
611 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
612 [153]"(null)RO PEEKUDGET 64 KANN GLEICHZEITIG BIS ZU"
613 [153]"40 (null)OSTEN/PEEKETRAEGE BEARBEITEN (VALINNAHMEN";
614 [153]"UND ATNUSGABEN)."
615 [153]"STR$IE (null)OSTEN KOENNEN AUF ZWEI ATNRTEN ANGE-"
616 [153]"SEHEN WERDEN:"
617 [153]"1:VALINNAHMEN UND ATNUSGABEN IN (null)OLLUMNEN"
618 [153]"2:VALINNAHMEN UND ATNUSGABEN ALS STR$IAGRAMM"
619 [153]"PEEKETRAEGE AENDERN:"
620 [153]"1:(null)AEHLEN (null)IE VALIN- ODER ATNUSGABEN"
650 [153]"2:(null)CHREIBEN (null)IE '(null)OSTEN, PEEKETRAG'
660 PRINT"3:[194]EACHTEN [211]IE, DASS DIE [208]OSTEN NUR 6"
670 PRINT"  [194]UCHSTABEN LANG SEIN SOLLEN UND DIE"
680 PRINT"  [194]ETRAEGE DEN [215]ERT 9,999,999 NICHT"
690 PRINT"  UEBERSCHREITEN DUERFEN."
695 PRINT"              -  [211][208][193][195][197]  -"
700 GETA$:IFA$<>" "THEN700
1000 IK=A(1,1)+A(1,2)+A(1,3)+A(1,4)+A(1,5)+A(1,6)+A(1,7)+A(1,8)+A(1,9)+A(1,10)
1010 IL=A(2,1)+A(2,2)+A(2,3)+A(2,4)+A(2,5)+A(2,6)+A(2,7)+A(2,8)+A(2,9)+A(2,10)
1020 IN=IK+IL
1030 IM=B(1,1)+B(1,2)+B(1,3)+B(1,4)+B(1,5)+B(1,6)+B(1,7)+B(1,8)+B(1,9)+B(1,10)
1040 IO=B(2,1)+B(2,2)+B(2,3)+B(2,4)+B(2,5)+B(2,6)+B(2,7)+B(2,8)+B(2,9)+B(2,10)
1050 EX=IM+IO
1080 POKE53272,23
1090 PRINT"[147][208]RO [194]UDGET 64   [208]OSTEN [206]R ([205]AX.20):";NO
1100 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
1110 PRINT"[154]1:[197]INNAHM. EINGEBEN  2:[193]USGAB. EINGEBEN"
1120 PRINT"3:[194]ETRAEGE ANSEHEN   4:[194]ILANZ ANSEHEN"
1130 PRINT"5:[196]IAGRAMM [197]INNAHMEN 6:[196]IAGRAMM [193]USGABEN";
1140 PRINT"7:[194]ETRAEGE LADEN     8:[194]ETR. SPEICHERN"
1150 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1160 GETG$:IFG$=""THEN1160
1170 IFG$="1"THEN1530
1180 IFG$="2"THEN1700
1190 IFG$="3"THEN1260
1200 IFG$="4"THEN2560
1210 IFG$="5"THEN2230
1220 IFG$="6"THEN2230
1230 IFG$="7"THEN3080
1240 IFG$="8"THEN3030
1250 GOTO1160
1260 PRINTCHR$(147):POKE53272,23
1270 PRINT"[197]INNAHMEN:          [193]USGABEN:"
1280 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1290 PRINT"[145][154]01:";A$(1,1),A(1,1),"[154]01:";B$(1,1),B(1,1)
1300 PRINT"[154]02:";A$(1,2),A(1,2),"[154]02:";B$(1,2),B(1,2)
1310 PRINT"[154]03:";A$(1,3),A(1,3),"[154]03:";B$(1,3),B(1,3)
1320 PRINT"[154]04:";A$(1,4),A(1,4),"[154]04:";B$(1,4),B(1,4)
1330 PRINT"[154]05:";A$(1,5),A(1,5),"[154]05:";B$(1,5),B(1,5)
1340 PRINT"[154]06:";A$(1,6),A(1,6),"[154]06:";B$(1,6),B(1,6)
1350 PRINT"[154]07:";A$(1,7),A(1,7),"[154]07:";B$(1,7),B(1,7)
1360 PRINT"[154]08:";A$(1,8),A(1,8),"[154]08:";B$(1,8),B(1,8)
1370 PRINT"[154]09:";A$(1,9),A(1,9),"[154]09:";B$(1,9),B(1,9)
1380 PRINT"[154]10:";A$(1,10),A(1,10),"[154]10:";B$(1,10),B(1,10)
1390 PRINT"[154]11:";A$(2,1),A(2,1),"[154]11:";B$(2,1),B(2,1)
1400 PRINT"[154]12:";A$(2,2),A(2,2),"[154]12:";B$(2,2),B(2,2)
1410 PRINT"[154]13:";A$(2,3),A(2,3),"[154]13:";B$(2,3),B(2,3)
1420 PRINT"[154]14:";A$(2,4),A(2,4),"[154]14:";B$(2,4),B(2,4)
1430 PRINT"[154]15:";A$(2,5),A(2,5),"[154]15:";B$(2,5),B(2,5)
1440 PRINT"[154]16:";A$(2,6),A(2,6),"[154]16:";B$(2,6),B(2,6)
1450 PRINT"[154]17:";A$(2,7),A(2,7),"[154]17:";B$(2,7),B(2,7)
1460 PRINT"[154]18:";A$(2,8),A(2,8),"[154]18:";B$(2,8),B(2,8)
1470 PRINT"[154]19:";A$(2,9),A(2,9),"[154]19:";B$(2,9),B(2,9)
1480 PRINT"[154]20:";A$(2,10),A(2,10),"[154]20:";B$(2,10),B(2,10)
1490 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
1500 PRINT"[145][212]OT.[197]IN.:",IN:PRINT"[145][212]OT.[193]US.:",EX;"[157][157][145][145]"
1510 GETCO$:IFCO$=""THEN1510
1520 GOTO1000
1530 GOSUB1650
1540 PRINT"[145][197]INNAHMEN EINGEBEN:   "
1550 J=0:S=1:NO=0
1560 J=J+1:IFJ=11ANDS=1THEN1620
1570 IFJ=11ANDS=2THEN1630
1580 NO=NO+1:GOSUB1640:INPUT"[197]INNAHME [208]OSTEN, [194]ETRAG";A$(S,J),A(S,J)
1590 IFLEN(A$(S,J))>6ORA(S,J)>9999999THEN1610
1600 PRINT"[145][145][145]":GOTO1560
1610 PRINT"[145][145]":NO=NO-1:GOTO1580
1620 S=2:J=1:GOTO1580
1630 GOTO1000
1640 PRINT"   [157][157][157]";NO"":RETURN
1650 PRINT"[145]-[203]ORREKT ([202]/[206])-"
1660 GETCO$:IFCO$=""THEN1660
1670 IFCO$="J"THENRETURN
1680 IFCO$="N"THEN1060
1690 GOTO1660
1700 GOSUB1650
1710 PRINT"[145][193]USGABEN EINGEBEN:    "
1720 D=0:R=1:NO=0
1730 D=D+1:IFD=11ANDR=1THEN1790
1740 IFD=11ANDR=2THEN1800
1750 NO=NO+1:GOSUB1810:INPUT"[193]USGABE [208]OSTEN, [194]ETRAG";B$(R,D),B(R,D)
1760 IFLEN(B$(R,D))>6ORB(R,D)>9999999THEN1780
1770 PRINT"[145][145][145]":GOTO1730
1780 PRINT"[145][145]":NO=NO-1:GOTO1750
1790 R=2:D=1:GOTO1750
1800 GOTO1000
1810 PRINT"   [157][157][157]";NO"":RETURN
1820 PRINTCHR$(147):POKE53272,20
1830 PRINT"  ^
1840 [153]"20<
1850 PRINT"  [179]
1860 [153]"  <
1870 PRINT"  [179]
1880 [153]"  <
1890 PRINT"15[179]
1900 [153]"  <
1910 PRINT"  [179]
1920 [153]"  <
1930 PRINT"  [179]
1940 [153]"10<
1950 PRINT"  [179]
1960 [153]"  <
1970 PRINT"  [179]
1980 [153]"  <
1990 PRINT"05[179]
2000 [153]"  <
2010 PRINT"  [179]
2020 [153]"  <
2030 PRINT"  [179]                     [176][192][192][192][192][192][192][174]
2040 [153]"00(null)TANTANTANTAN=TANTANTANTAN=TANTANTANTAN=TANTANTANTAN=TAN<POSTENPEEK
2050 PRINT"  [194][154]1234[194][154]1234[194][154]1234[194][154]1234[194] [173][192][192][192][192][192][192][189]
2060 [153]"  /TANTANTANTAN>TANTANTANTAN>TANTANTANTAN>TANTANTANTANEXP
2070 PRINT"  00   05   10   15   20[145][145][145]"
2080 IFG$="5"THEN2340
2090 IFG$="6"THEN2390
2100 PRINT""
2110 V=1:B=0:Y=0
2120 Q=0:B=B+1:IFB>10THEN2210
2130 Q=Q+KJ:IFQ<A(V,B)ORQ=A(V,B)THEN2150
2140 GOTO2170
2150 PRINTTAB(2+(B+Y)):PRINT"[154][180][146][145][145][157]"
2160 GOTO2130
2170 IFB+Y=20THEN2190
2180 PRINT"":GOTO2120
2190 GETCS$:IFCS$=""THEN2190
2200 GOTO1000
2210 V=2:B=0:Y=10
2220 GOTO2120
2230 PRINT"[194]ETRAEGE IN:"
2240 PRINT"(1) 100:E"
2250 PRINT"(2) 1000:E"
2260 PRINT"(3) 10000:E"
2270 PRINT"(4) 100000:E"
2280 GETAM$:IFAM$=""THEN2280
2290 IFAM$="1"THENKJ=100:GOTO1820
2300 IFAM$="2"THENKJ=1000:GOTO1820
2310 IFAM$="3"THENKJ=10000:GOTO1820
2320 IFAM$="4"THENKJ=100000:GOTO1820
2330 GOTO2280
2340 PRINT"":PRINTTAB(25)"TOTAL EINNAHME:"
2350 PRINTTAB(24);IN
2360 PRINTTAB(25);"BETRAEGE IN:"
2370 PRINTTAB(24);KJ;":E"
2380 GOTO2100
2390 PRINT"":PRINTTAB(25)"TOTAL AUSGABEN:"
2400 PRINTTAB(24)"[145]";EX
2410 PRINTTAB(25);"BETRAEGE IN:"
2420 PRINTTAB(24);KJ;":E"
2430 PRINT""
2440 D=1:E=0:Y=0
2450 F=0:E=E+1:IFE>10THEN2540
2460 F=F+KJ:IFF<B(D,E)ORF=B(D,E)THEN2480
2470 GOTO2500
2480 PRINTTAB(2+(E+Y)):PRINT"[154][180][146][145][145][157]"
2490 GOTO2460
2500 IFE+Y=20THEN2520
2510 PRINT"":GOTO2450
2520 GETCS$:IFCS$=""THEN2520
2530 GOTO1000
2540 D=2:E=0:Y=10
2550 GOTO2450
2560 BA=IN-EX
2570 PRINT"[194]ILANZ:"
2580 PRINT"[212]OTAL [197]INNAHME:";IN
2590 PRINT"[212]OTAL [193]USGABE :";EX
2600 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2610 PRINT"[194]ILANZ        :";BA
2620 GETWS$:IFWS$=""THEN2620
2630 GOTO1000
2640 Z$=CHR$(13)
2650 OPEN 3,8,3,"@:"+FI$+",SEQ,W"
2660 PRINT#3,A$(1,1);Z$;A$(1,2);Z$;A$(1,3);Z$;A$(1,4);Z$;A$(1,5);Z$;A$(1,6);Z$;
2670 PRINT#3,A$(1,7);Z$;A$(1,8);Z$;A$(1,9);Z$;A$(1,10);Z$;A$(2,1);Z$;
2680 PRINT#3,A$(2,2);Z$;A$(2,3);Z$;A$(2,4);Z$;A$(2,5);Z$;A$(2,6);Z$;
2690 PRINT#3,A$(2,7);Z$;A$(2,8);Z$;A$(2,9);Z$;A$(2,10)
2700 PRINT#3,A(1,1);Z$;A(1,2);Z$;A(1,3);Z$;A(1,4);Z$;A(1,5);Z$;A(1,6);Z$;
2710 PRINT#3,A(1,7);Z$;A(1,8);Z$;A(1,9);Z$;A(1,10);Z$;A(2,1);Z$;A(2,2);Z$;
2720 PRINT#3,A(2,3);Z$;A(2,4);Z$;A(2,5);Z$;A(2,6);Z$;A(2,7);Z$;A(2,8);Z$;
2730 PRINT#3,A(2,9);Z$;A(2,10)
2740 PRINT#3,B$(1,1);Z$;B$(1,2);Z$;B$(1,3);Z$;B$(1,4);Z$;B$(1,5);Z$;B$(1,6);Z$;
2750 PRINT#3,B$(1,7);Z$;B$(1,8);Z$;B$(1,9);Z$;B$(1,10);Z$;B$(2,1);Z$;
2760 PRINT#3,B$(2,2);Z$;B$(2,3);Z$;B$(2,4);Z$;B$(2,5);Z$;B$(2,6);Z$;
2770 PRINT#3,B$(2,7);Z$;B$(2,8);Z$;B$(2,9);Z$;B$(2,10)
2780 PRINT#3,B(1,1);Z$;B(1,2);Z$;B(1,3);Z$;B(1,4);Z$;B(1,5);Z$;B(1,6);Z$;
2790 PRINT#3,B(1,7);Z$;B(1,8);Z$;B(1,9);Z$;B(1,10);Z$;B(2,1);Z$;B(2,2);Z$;
2800 PRINT#3,B(2,3);Z$;B(2,4);Z$;B(2,5);Z$;B(2,6);Z$;B(2,7);Z$;B(2,8);Z$;
2810 PRINT#3,B(2,9);Z$;B(2,10)
2820 CLOSE 3,8
2830 GOTO1000
2840 OPEN 3,8,3,"@:"+FI$+",SEQ,R"
2850 INPUT#3,A$(1,1),A$(1,2),A$(1,3),A$(1,4),A$(1,5),A$(1,6)
2860 INPUT#3,A$(1,7),A$(1,8),A$(1,9),A$(1,10),A$(2,1),A$(2,2)
2870 INPUT#3,A$(2,3),A$(2,4),A$(2,5),A$(2,6),A$(2,7),A$(2,8)
2880 INPUT#3,A$(2,9),A$(2,10)
2890 INPUT#3,A(1,1),A(1,2),A(1,3),A(1,4),A(1,5),A(1,6)
2900 INPUT#3,A(1,7),A(1,8),A(1,9),A(1,10),A(2,1),A(2,2)
2910 INPUT#3,A(2,3),A(2,4),A(2,5),A(2,6),A(2,7),A(2,8)
2920 INPUT#3,A(2,9),A(2,10)
2930 INPUT#3,B$(1,1),B$(1,2),B$(1,3),B$(1,4),B$(1,5),B$(1,6)
2940 INPUT#3,B$(1,7),B$(1,8),B$(1,9),B$(1,10),B$(2,1),B$(2,2)
2950 INPUT#3,B$(2,3),B$(2,4),B$(2,5),B$(2,6),B$(2,7),B$(2,8)
2960 INPUT#3,B$(2,9),B$(2,10)
2970 INPUT#3,B(1,1),B(1,2),B(1,3),B(1,4),B(1,5),B(1,6)
2980 INPUT#3,B(1,7),B(1,8),B(1,9),B(1,10),B(2,1),B(2,2)
2990 INPUT#3,B(2,3),B(2,4),B(2,5),B(2,6),B(2,7),B(2,8)
3000 INPUT#3,B(2,9),B(2,10)
3010 CLOSE3,8
3020 GOTO1000
3030 PRINT"    - [193]UF [196]ISKETTE SPEICHERN ([202]/[206]) -"
3040 GETOB$:IFOB$=""THEN3040
3050 IFOB$="N"THEN1080
3060 IFOB$="J"THEN3080
3070 GOTO3040
3080 INPUT"[198]ILE [206]AME:";FI$
3090 IFG$="7"THEN2840
3100 IFG$="8"THEN2640